home *** CD-ROM | disk | FTP | other *** search
/ C/C++ Users Group Library 1996 July / C-C++ Users Group Library July 1996.iso / listings / v_12_06 / allison / hi_lo.bas < prev    next >
Encoding:
BASIC Source File  |  1994-04-09  |  628 b   |  21 lines
  1. LISTING 1 - A BASIC program to play HI-LO
  2.  
  3. 100 rem A very old BASIC program to play HI-LO
  4. 110 print "Think of a number between 1 and 100"
  5. 120 print "If you don't cheat, I'll figure it out"
  6. 130 print "in seven guesses or less!"
  7. 140 lo = 1
  8. 150 hi = 100
  9. 160 if lo > hi then print "You cheated!" : goto 240
  10. 170 g = int((lo + hi) / 2)
  11. 180 print "Is it";g;" (L/H/Y)?"
  12. 190 input r$
  13. 200 if r$ = "L" then lo = g+1 : goto 160
  14. 210 if r$ = "H" then hi = g-1 : goto 160
  15. 220 if r$ <> "Y" then print "What? Try again..." : goto 190
  16. 230 print "What fun!"
  17. 240 print "Wanna play again?"
  18. 250 input r$
  19. 260 if r$ = "Y" then 140
  20.  
  21.